home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / forth_83.zoo / allocate.scr < prev    next >
Text File  |  1992-04-07  |  2KB  |  1 lines
  1. \\                      *** Allocate ***               12oct86we                                                                Dieses File enthält die Betriebssystemroutinen, mit denen man   RAM-Speicher beim Betriebssystem an- und abmelden kann.                                                                         MALLOC erwartet die - doppelt genaue - Anzahl der zu reservie-   renden Bytes und gibt die Langadresse des allokierten Speicher- bereichs zurück. Wenn nicht genug Speicherplatz zur Verfügung   steht, wird der Befehl abgebrochen.                                                                                            MFREE gibt den Speicher ab laddr wieder frei. Bei Fehlern wird   der Befehl abgebrochen.                                                                                                                                                                                                                                                                                                        \ malloc mfree                                         16oct86we                                                                Code malloc   ( d -- laddr )                                      .l SP ) A7 -) move  .w $48 # A7 -) move  1 trap                  6 A7 addq  .l D0 SP ) move                                      ;c: 2dup or 0= abort" No more RAM" ;                                                                                         Code mfree    ( laddr -- )                                        .l SP )+ A7 -) move  .w $49 # A7 -) move  1 trap                 6 A7 addq  .w D0 SP -) move  ;c: abort" mfree Error!" ;